home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
rxbas120.zip
/
CREATNDX.CMD
next >
Wrap
OS/2 REXX Batch file
|
1993-10-10
|
412b
|
22 lines
/* rexx */
signal on syntax
say rxfuncadd(rexxbase_init,"rexxbase",Rexxbase_Init)
say rexxbase_init()
parse arg noname indexname key therest
say rexxbase_opendbf("noname")
r = rexxbase_createindex("noname",indexname,key)
say r
say rexxbase_closedbf("noname")
return
syntax:
errormsg = 'rexx error ' rc ' in line ' sigl ':' errortext(rc)
say errormsg
say sourceline(sigl)
exit